home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8907a.d64 / leseprogramm neu (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  213b  |  17 lines
  1. 5 A=4
  2. 10 REM LESEN DER DATEI
  3. 20 DIM A$(4)
  4. 25 DIM B$(4)
  5. 30 OPEN1,8,2,"NAMEN,S,W"
  6. 40 FOR I=1TOA
  7. 50 A$(I)=""
  8. 51 GET#1,Z$
  9. 52 IF Z$=CHR$(13)THEN60
  10. 53 A$(I)=A$(I)+Z$
  11. 54 GOTO 52
  12. 55 INPUT#1,A$(I)
  13. 60 PRINT A$(I)
  14. 65 PRINT B$(I)
  15. 70 NEXT
  16. 80 CLOSE1
  17.